home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / DUMBCONV.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  428b  |  20 lines

  1. PROGRAM temperature_conversion;
  2.  
  3. VAR a1,a2,a3 : INTEGER;
  4.  
  5. BEGIN
  6.   WRITELN('Centigrade to farenheight temperature table');
  7.   WRITELN;
  8.   FOR a1 := -2 TO 12 DO
  9.   BEGIN
  10.     a2 := 10*a1;
  11.     a3 := 32 + a2*9 DIV 5;
  12.     WRITE('  C =',a2:5);
  13.     WRITE('    F =',a3:5);
  14.     IF a2 = 0 THEN
  15.       WRITE('  Freezing point of water');
  16.     IF a2 = 100 THEN
  17.       WRITE('  Boiling point of water');
  18.     WRITELN;
  19.   END;
  20. END.